home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / stomp / stomp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  3.6 KB  |  133 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2820
  6.    ClientLeft      =   1830
  7.    ClientTop       =   1650
  8.    ClientWidth     =   5325
  9.    Height          =   3225
  10.    Left            =   1770
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2820
  13.    ScaleWidth      =   5325
  14.    Top             =   1305
  15.    Width           =   5445
  16.    Begin CommandButton Command4 
  17.       Caption         =   "Exit"
  18.       Height          =   255
  19.       Left            =   3630
  20.       TabIndex        =   9
  21.       Top             =   1140
  22.       Width           =   1275
  23.    End
  24.    Begin CommandButton Command3 
  25.       Caption         =   "Select"
  26.       Height          =   255
  27.       Left            =   3630
  28.       TabIndex        =   8
  29.       Top             =   420
  30.       Width           =   1245
  31.    End
  32.    Begin CommandButton Command2 
  33.       Caption         =   "Select"
  34.       Height          =   255
  35.       Left            =   3630
  36.       TabIndex        =   7
  37.       Top             =   90
  38.       Width           =   1245
  39.    End
  40.    Begin CommandButton Command1 
  41.       Caption         =   "Do It"
  42.       Height          =   255
  43.       Left            =   3630
  44.       TabIndex        =   6
  45.       Top             =   840
  46.       Width           =   1275
  47.    End
  48.    Begin OptionButton Option1 
  49.       BackColor       =   &H00C0C0C0&
  50.       Caption         =   "UnCompress"
  51.       Height          =   195
  52.       Index           =   1
  53.       Left            =   90
  54.       TabIndex        =   5
  55.       Top             =   1440
  56.       Width           =   1395
  57.    End
  58.    Begin OptionButton Option1 
  59.       BackColor       =   &H00C0C0C0&
  60.       Caption         =   "Compress"
  61.       Height          =   225
  62.       Index           =   0
  63.       Left            =   90
  64.       TabIndex        =   4
  65.       Top             =   1200
  66.       Width           =   1935
  67.    End
  68.    Begin TextBox Text2 
  69.       Height          =   285
  70.       Left            =   1500
  71.       TabIndex        =   2
  72.       Top             =   390
  73.       Width           =   2085
  74.    End
  75.    Begin TextBox Text1 
  76.       Height          =   285
  77.       Left            =   1500
  78.       TabIndex        =   1
  79.       Top             =   90
  80.       Width           =   2085
  81.    End
  82.    Begin Label Label2 
  83.       BackStyle       =   0  'Transparent
  84.       Caption         =   "Destination File:"
  85.       Height          =   225
  86.       Left            =   60
  87.       TabIndex        =   3
  88.       Top             =   390
  89.       Width           =   1455
  90.    End
  91.    Begin Label Label1 
  92.       BackStyle       =   0  'Transparent
  93.       Caption         =   "Source File:"
  94.       Height          =   225
  95.       Left            =   90
  96.       TabIndex        =   0
  97.       Top             =   120
  98.       Width           =   1095
  99.    End
  100. Sub Command1_Click ()
  101. If Trim(text1.Text) = "" Then flag = 1
  102. If Trim(text2.Text) = "" Then flag = 1
  103. If flag = 1 Then
  104.     MsgBox "Select A File First", 16, "DRAGON SOFTWARE"
  105.     Exit Sub
  106. End If
  107. src$ = Trim(text1.Text)
  108. dst$ = Trim(text2.Text)
  109. If option1(0).Value = True Then
  110.     x% = doit(Trim(src$), Trim(dst$))
  111.     x% = undoit(Trim(src$), Trim(dst$))
  112. End If
  113. If x% = 1 Then
  114.     MsgBox "SUCCESSFUL", 64, "DRAGON SOFTWARE"
  115. End If
  116. If x% = 2 Then
  117.     MsgBox "UNSUCCESSFUL", 16, "DRAGON SOFTWARE"
  118. End If
  119. End Sub
  120. Sub Command2_Click ()
  121. which = 1
  122. filedlg.Show
  123. End Sub
  124. Sub Command3_Click ()
  125. which = 2
  126. filedlg.Show
  127. End Sub
  128. Sub Command4_Click ()
  129. End Sub
  130. Sub Form_Load ()
  131. option1(0).Value = True
  132. End Sub
  133.